﻿Imports IControl.IControls

Public Class DMDanhMuc

    Private Sub DMDanhMuc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PCV_TutorialDataSet.DanhMuc' table. You can move, or remove it, as needed.
        Me.DanhMucTableAdapter.Fill(Me.PCV_TutorialDataSet.DanhMuc)

    End Sub

    Private Sub BarButtonItemLamTuoi_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemLamTuoi.ItemClick
        'Tim tu ngay den ngay
        Me.IDateEdit1.EditValue = getNgayDauThang(Today)
        Me.IDateEdit2.EditValue = getNgayCuoiThang(Today)
        Dim tungay As Date = Me.IDateEdit1.EditValue
        Dim denngay As Date = Me.IDateEdit2.EditValue
        Me.DanhMucTableAdapter.FillBy(Me.PCV_TutorialDataSet.DanhMuc, tungay, denngay)
    End Sub
End Class
